home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / HANGMAN.ZIP / HANGMAN.TXT < prev    next >
Text File  |  1996-12-13  |  4KB  |  83 lines
  1. This script will be a part of []baz▀ot[] v2.╪ made by Ronny 1996 (C)
  2. The Current script was made by baz`oo`ka and Hexadec
  3.  
  4. Add more txt files and add more things to the txt files if you wish...
  5.  
  6. All you need to do is to add the folowing in to the indicated section of tools 
  7.  
  8. Aliases:
  9.  
  10. /hang {
  11.   unset %used
  12.   set %dir $r(1,4)  
  13.   set %t 0
  14.   if (%dir = 1) { %quiz = movies.txt | %show = Movies }
  15.   if (%dir = 2) { %quiz = count.txt | %show = Countries }
  16.   if (%dir = 3) { %quiz = food.txt | %show = Food }
  17.   if (%dir = 4) { %quiz = music.txt | %show = Music }
  18.   msg %chan +----+----+ [HangDude] +----+----+ | msg %chan The Subject is ╗ $+ %show $+ ½ | msg %chan type ~letter guess to guess a letter , type ~word guess to guess the word and to see what letters that were guessed and in the word type ~show
  19.   set %subdir $read $mircdir [ $+ [ %quiz ] ]
  20.   set %long $str($len(%subdir),-) 
  21.   msg %chan Current word has $len(%subdir) Characters in it: %long
  22.   enable #hang
  23.   echo 4 the Current word is: %subdir
  24.   halt
  25. }
  26. done {
  27.   msg %chan +----+----+ [HangDude] +----+-----+
  28.   msg %chan Game Disabled, The Dude Was Saved.
  29.   msg %chan º╗í½º []bazBot[] º╗í½º
  30.   msg %t %used | disable #hang
  31. }
  32.  
  33. Remote Events:
  34.  
  35. 400:on text:!hang:#:/set %chan $chan | /hang
  36. 400:on text:!save:#:/done
  37. #hang start
  38. 1:on text:~letter*:#: {
  39.   if (($asc($parm2) < 65) || ($asc($parm2) > 132)) { msg %chan  Sorry $nick But i Dont Recognize That Character.  | halt }
  40.   if ($parm2 == $null) { msg %chan  No Character specified $nick !!  | halt }
  41.   if ($len($parm2) > 1) { msg %chan  Invalid format ╗ $+ $upper($parm2) $+ ½ !!  | halt }
  42.   if ($parm2 isin %used) { msg %chan  ╗ $+ $parm2 $+ ½ has already been used!  | msg %chan  Character(s) used: $upper(%used)  | halt }
  43.   %used = %used $parm2 $+ ,
  44.   if ($parm2 isin %subdir) {
  45.     %i = 0
  46.     :n
  47.     inc %i
  48.     if ($mid(%i,1,%subdir) = $parm2) {
  49.       %s = %i - 1
  50.       %l = $left(%s,%long)
  51.       %s = $len(%long) - $len(%l)
  52.       %s = %s - 1
  53.       %r = $right(%s,%long)
  54.       if (%i = 1) { %s = $len(%long) - 1 | %long = $parm2 $+ $right(%s,%r) }
  55.       elseif (%i = $len(%long)) { %long = %l $+ $parm2 }
  56.       else { %long = %l $+ $parm2 $+ %r }
  57.     }
  58.     if ($mid(%i,1,%subdir)) { goto n }
  59.     unset %i %l %s %r
  60.     if (- isin %long) { msg %chan  Go Go $nick $+ !! ╗ $+ $upper($parm2) $+ ½ is in the word!!  | msg %chan  %long  | msg %chan  Character(s) used: $upper(%used)  }
  61.     else { msg %chan  Go Go $nick $+ !! ╗ $+ $upper($parm2) $+ ½ is in the word!!  | msg %chan  the word is: %subdir  | msg %chan  All Characters were guesst Game over º╗í½º []bazBot[] º╗í½º  | disable #hang | unset %t }
  62.     halt
  63.   }
  64.   inc %t
  65.   if (%t = 7) { msg %chan  umm sorry folx!!! you lost!! the poor guy was hanged!! o-<-< (Doh!)   | msg %chan  the word was: %subdir  | msg %chan  Game Over º╗í½º []bazBot[] º╗í½º  | disable #hang | unset %t | halt }
  66.   if (%t == 6) { msg $chan  Come on people!!! Think!! one more error and you lose!! $read -l [ $+ [ %t ] ] $mircdir $+ hang.txt  | msg $chan  Characters used: $upper(%used)  }
  67.   else { msg %chan  Wrong!!!! $nick blew that guess!! : $read -l [ $+ [ %t ] ] $mircdir $+ hang.txt  | msg %chan  Character(s) used: $upper(%used)  }
  68. }
  69. 1:on text:~word*:#: {
  70.   if ($parm2 == $null) { msg %chan  No word specified $nick !!  | halt }
  71.   if ($parm2* == %subdir) { goto right }
  72.   else { goto wrong }
  73.   :right
  74.   msg %chan  Thats Right $nick $+ !!!!! $parm2 is the right word!!  | msg %chan  Game Over º╗í½º []bazBot[] º╗í½º  | disable #hang | unset %t | halt
  75.   halt
  76.   :wrong
  77.   inc %t 1
  78.   if (%t == 7) { msg %chan  umm sorry folx!!! you lost!! the poor guy was hanged!! o-<-< (Doh!)  | msg %chan  the word was: %subdir  | msg %chan  Game is Over º╗í½º []bazBot[] º╗í½º  | /disable #hang | unset %t | halt }
  79.   else { msg %chan  Wrong!!!! $nick blew that guess!! : $read -l [ $+ [ %t ] ] $mircdir $+ hang.txt  | msg %chan  Character(s) used: %used  }  
  80. }
  81. 1:on text:~show:#:/msg %chan  Character(s) all ready guessed: %long 
  82. #hang end
  83.